home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Language/OS - Multiplatform Resource Library
/
LANGUAGE OS.iso
/
lisp
/
kcl
/
akcl
/
akcl1615.lha
/
lsp
/
sys-proclaim.lisp
< prev
next >
Wrap
Text File
|
1990-11-18
|
7KB
|
139 lines
(IN-PACKAGE "SYSTEM")
(PROCLAIM
'(FTYPE (FUNCTION (T) FIXNUM) S-DATA-SIZE THE-START S-DATA-LENGTH))
(PROCLAIM '(FTYPE (FUNCTION (T T) FIXNUM) THE-END))
(PROCLAIM '(FTYPE (FUNCTION (T T T T T T T) *) TRACE-CALL))
(PROCLAIM
'(FTYPE (FUNCTION (T T T) *) READ-INSPECT-COMMAND LIST-MERGE-SORT
SHARP-S-READER))
(PROCLAIM
'(FTYPE (FUNCTION (T T *) *) SORT STABLE-SORT SET-UP-FOR-DUMP-INPUT
SLOOP::FIND-IN-ORDERED-LIST REDUCE))
(PROCLAIM
'(FTYPE (FUNCTION (T T *) T) SLOOP::PARSE-LOOP-MACRO SOME SUBSETP
SLOOP::IN-ARRAY-SLOOP-FOR MAKE-SEQUENCE UNION
WRITE-DEBUG-SYMBOLS MISMATCH NINTERSECTION NOTANY NOTEVERY
NSET-DIFFERENCE NSET-EXCLUSIVE-OR NUNION POSITION
POSITION-IF POSITION-IF-NOT REMOVE REMOVE-IF REMOVE-IF-NOT
REPLACE SEARCH SLOOP::LOOP-ADD-BINDING SET-DIFFERENCE
SET-EXCLUSIVE-OR DELETE DELETE-IF DELETE-IF-NOT EVERY FILL
FIND BIT-AND BIT-ANDC1 FIND-IF BIT-ANDC2 FIND-IF-NOT
BIT-EQV BIT-IOR BIT-NAND BIT-NOR BIT-ORC1 BIT-ORC2 BIT-XOR
INTERSECTION))
(PROCLAIM
'(FTYPE (FUNCTION (T T T) T) DM-VL SETF-EXPAND-1
TYPECASE-ERROR-STRING
SLOOP::LOOP-PARSE-ADDITIONAL-COLLECTIONS SHARP-A-READER
DEPOSIT-FIELD DEFMACRO* DPB CHECK-TRACE-ARGS MAKE-T-TYPE
GET-SLOT-POS CHECK-S-DATA))
(PROCLAIM '(FTYPE (FUNCTION (T T T T T T *) T) ENCODE-UNIVERSAL-TIME))
(PROCLAIM
'(FTYPE (FUNCTION (T T T T T) T) MAKE-CONSTRUCTOR MAKE-PREDICATE))
(PROCLAIM
'(FTYPE (FUNCTION (T T T T T T T T T T *) T) MAKE-ACCESS-FUNCTION))
(PROCLAIM
'(FTYPE (FUNCTION (T T T T T T T T T T T T *) T) DEFINE-STRUCTURE))
(PROCLAIM
'(FTYPE (FUNCTION (T T T T) T) SLOOP::FIRST-USE-SLOOP-FOR
SLOOP::FIRST-SLOOP-FOR SETF-STRUCTURE-ACCESS CALL-TEST))
(PROCLAIM
'(FTYPE (FUNCTION (T T T *) T) SUBSTITUTE SUBSTITUTE-IF
SUBSTITUTE-IF-NOT MAP NSUBSTITUTE NSUBSTITUTE-IF
NSUBSTITUTE-IF-NOT SLOOP::LOOP-DECLARE-BINDING))
(PROCLAIM '(FTYPE (FUNCTION (T T T T T *) T) UNIVERSAL-ERROR-HANDLER))
(PROCLAIM
'(FTYPE (FUNCTION (T T T T *) T) SLOOP::DEF-LOOP-INTERNAL MERGE))
(PROCLAIM '(FTYPE (FUNCTION (FIXNUM FIXNUM) FIXNUM) ROUND-UP))
(PROCLAIM
'(FTYPE (FUNCTION NIL *) BREAK-MESSAGE BREAK-UNHIDE-ALL
SIMPLE-BACKTRACE BREAK-CURRENT))
(PROCLAIM
'(FTYPE (FUNCTION NIL T) SLOOP::PARSE-LOOP-FOR
DM-TOO-MANY-ARGUMENTS DM-TOO-FEW-ARGUMENTS BREAK-HELP-HELP
BREAK-HELP-STACK-FUNS BREAK-TAGS BREAK-VARIABLES
INSPECT-READ-LINE INSPECT-INDENT INSPECT-INDENT-1
SLOOP::LOOP-POP SLOOP::LOOP-UN-POP SLOOP::LOOP-PEEK
BREAK-BLOCKS SLOOP::PARSE-LOOP1 SLOOP::PARSE-LOOP-DO
SLOOP::PARSE-ONE-WHEN-CLAUSE BREAK-VARIABLES-VALUES
SLOOP::PARSE-LOOP-WHEN SLOOP::PARSE-LOOP-COLLECT
BREAK-FUNCTIONS SET-CURRENT BREAK-HELP SET-ENV TEST-ERROR
TOP-LEVEL SLOOP::TYPE-ERROR ILLEGAL-BOA
ALL-TRACE-DECLARATIONS STEP-READ-LINE))
(PROCLAIM
'(FTYPE (FUNCTION (*) *) LOC BACKTRACE SHOW-BREAK-VARIABLES
BREAK-LOCAL BREAK-LOCALS BREAK-NEXT BREAK-PREVIOUS
BREAK-QUIT BREAK-VS))
(PROCLAIM
'(FTYPE (FUNCTION (*) T) Y-OR-N-P YES-OR-NO-P
SLOOP::PARSE-LOOP-WITH SLOOP::PARSE-LOOP-DECLARE VECTOR
MAKE-S-DATA DRIBBLE BREAK))
(PROCLAIM
'(FTYPE (FUNCTION (T) *) BREAK-HIDE BREAK-HIDE-PACKAGE
FIND-DECLARATIONS SEARCH-STACK PRIN1-TO-STRING BREAK-UNHIDE
PRINC-TO-STRING INSPECT-OBJECT BREAK-UNHIDE-PACKAGE
BREAK-BDS BREAK-GO IHS-FNAME DESCRIBE GET-SETF-METHOD
GET-SETF-METHOD-MULTIPLE-VALUE INSPECT))
(PROCLAIM '(FTYPE (FUNCTION (T :DYNAMIC-EXTENT *) T) ADJUST-ARRAY))
(PROCLAIM
'(FTYPE (FUNCTION (T T *) FIXNUM) VECTOR-PUSH-EXTEND INTERNAL-COUNT
COUNT COUNT-IF COUNT-IF-NOT INTERNAL-COUNT-IF
INTERNAL-COUNT-IF-NOT))
(PROCLAIM '(FTYPE (FUNCTION (T FIXNUM FIXNUM T T) T) QUICK-SORT))
(PROCLAIM
'(FTYPE (FUNCTION (T) T) SIGNUM S-DATA-PRINT-FUNCTION
DM-KEY-NOT-ALLOWED SINH S-DATA-SLOT-DESCRIPTIONS
SLOOP::AVERAGING-SLOOP-MACRO S-DATA-SLOT-POSITION
SLOOP::REPEAT-SLOOP-MACRO SLOOP::SUBSTITUTE-SLOOP-BODY
SIMPLE-ARRAY-P S-DATA-HAS-HOLES SLOOP::RETURN-SLOOP-MACRO
NORMALIZE-TYPE S-DATA-FROZEN KNOWN-TYPE-P LOGNOT
S-DATA-DOCUMENTATION S-DATA-CONSTRUCTORS S-DATA-OFFSET
DM-BAD-KEY S-DATA-NAMED S-DATA-TYPE BEST-ARRAY-ELEMENT-TYPE
TANH SLOOP::SLOOP-SLOOP-MACRO SHOW-ENVIRONMENT VECTOR-POP
INSPECT-SYMBOL SLOOP::LOOP-COLLECT-KEYWORD-P PHASE
INSPECT-PACKAGE INSPECT-CHARACTER INSPECT-NUMBER
SLOOP::PARSE-NO-BODY INSPECT-CONS INSPECT-STRING
INSPECT-VECTOR TERMINAL-INTERRUPT PROVIDE INSPECT-ARRAY
INSPECT-STRUCTURE SLOOP::TRANSLATE-NAME
SLOOP::LOOP-LET-BINDINGS SLOOP::PARSE-LOOP
BREAK-BACKWARD-SEARCH-STACK ASK-FOR-FORM
SLOOP::PARSE-LOOP-INITIALLY TYPECASE-ERROR-STRINGS BOIN-P
BREAK-FORWARD-SEARCH-STACK
SLOOP::POINTER-FOR-COLLECT PRINT-IHS PRINT-FRS LEAP-YEAR-P
FRS-KIND NUMBER-OF-DAYS-FROM-1900 IHS-VISIBLE
IHS-COMPILED-P PRINT-SYMBOL-APROPOS BYTE-SIZE SEQTYPE CIS
FIND-DOCUMENTATION COSH TRACE-ONE UNTRACE-ONE ABS S-DATA-P
ACOS TRACE-ONE-PREPROCESS RATIONAL ACOSH CHECK-TRACE-SPEC
CHECK-DECLARATIONS RESET-TRACE-DECLARATIONS
ARRAY-DIMENSIONS ASIN ASINH FREEZE-DEFSTRUCT ATANH
FIND-ALL-SYMBOLS S-DATA-NAME S-DATA-RAW S-DATA-INCLUDED
ISQRT S-DATA-INCLUDES BYTE-POSITION S-DATA-STATICP))
(PROCLAIM
'(FTYPE (FUNCTION (T *) *) SET-UP-FOR-DUMP-OUTPUT PRINT-DOC
APROPOS-DOC WRITE-TO-STRING READ-FROM-STRING
DECODE-UNIVERSAL-TIME STEPPER APROPOS FCEILING FFLOOR
FROUND FTRUNCATE))
(PROCLAIM
'(FTYPE (FUNCTION (T *) T) SLOOP::ADD-FROM-DATA MAKE-ARRAY
REMOVE-DUPLICATES REQUIRE SBIT SLOOP::LOOP-ADD-TEMPS
CONCATENATE WARN BAD-SEQ-LIMIT DELETE-DUPLICATES
APROPOS-LIST ARRAY-IN-BOUNDS-P ARRAY-ROW-MAJOR-INDEX BIT
BIT-NOT))
(PROCLAIM '(FTYPE (FUNCTION (T T) *) FIND-DOC SUBTYPEP TYPEP))
(PROCLAIM
'(FTYPE (FUNCTION (T T) T) LDB-TEST LOGANDC1 SLOOP::PARSE-LOOP-MAP
LOGANDC2 LOGNAND LOGNOR DM-V SLOOP::IN-TABLE-SLOOP-MAP
DM-NTH SUB-INTERVAL-P LOGORC1 DM-NTH-CDR IN-INTERVAL-P
LOGORC2 SLOOP::IN-PACKAGE-SLOOP-MAP MATCH-DIMENSIONS
LOGTEST SUPER-GO SLOOP::=-SLOOP-FOR MASK-FIELD
SLOOP::IN-CAREFULLY-SLOOP-FOR VECTOR-PUSH SETF-HELPER
SLOOP::COLLATE-SLOOP-COLLECT SLOOP::IN-FRINGE-SLOOP-MAP
SLOOP::DESETQ1 SETF-EXPAND SLOOP::L-EQUAL SUBSTRINGP
INCREMENT-CURSOR SEQUENCE-CURSOR BREAK-CALL SLOOP::THE-TYPE
SLOOP::MAKE-VALUE LIST-DELQ CHECK-SEQ-START-END COERCE
DOCUMENTATION PARSE-SLOT-DESCRIPTION
OVERWRITE-SLOT-DESCRIPTIONS SLOOP::SUM-SLOOP-COLLECT
SLOOP::LOGXOR-SLOOP-COLLECT SLOOP::MAXIMIZE-SLOOP-COLLECT
SLOOP::MINIMIZE-SLOOP-COLLECT SLOOP::COUNT-SLOOP-COLLECT
SLOOP::THEREIS-SLOOP-COLLECT SLOOP::ALWAYS-SLOOP-COLLECT
BYTE SLOOP::NEVER-SLOOP-COLLECT LDB))